Những câu hỏi liên quan
Trúc Quỳnh
Xem chi tiết
Trungnghia
9 tháng 4 2021 lúc 21:33

Bình luận (0)
Trungnghia
9 tháng 4 2021 lúc 21:37

undefined

Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D 

Bình luận (1)
Nguyễn Lê Phước Thịnh
9 tháng 4 2021 lúc 21:41

uses crt;

var a:array[1..50]of real;

max:real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('Nhap diem cua ban thu ',i,'='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Bình luận (1)
trân
Xem chi tiết
lê thị bích ngọc
2 tháng 12 2021 lúc 11:14

bạn phải cho biết bao nhiêu điểm HS 1, bao nhiêu điểm HS 2, bao nhiêu điểm HS 3 thì mới làm được chứ

Bình luận (0)
Lê Nguyễn Hoàng Vũ
Xem chi tiết
Nguyễn Anh Dũng
9 tháng 12 2021 lúc 20:11

var t,v,a,dtb: real;

begin

    writeln(' diem mon Toan la: ');

    read(t);

    writeln(' diem mon Van la: ');

    read(v);

    writeln(' diem mon Anh la: ');

    read(a);

    dtb = ( t + v + a)/3

    if ( dtb >= 5 ) then 

           writeln(' duoc len lop');

    else

           writeln(' thi lai');

    readln;

end.

Bình luận (0)
Nguyễn Tuấn Anh
Xem chi tiết
Phía sau một cô gái
10 tháng 4 2023 lúc 20:20

program DiemTB;

var

      diemToan, diemVan, diemTB: real;

begin

      write('Nhap diem mon Toan: ');

      readln(diemToan);

      write('Nhap diem mon Van: ');

      readln(diemVan);

      diemTB := (diemToan + diemVan) / 2;

      writeln('Diem trung binh: ', diemTB:0:2);

      if diemTB >= 5 then

            writeln('Chuc mung! Ban da dau ky thi.')

      else

            writeln('Rat tiec! Ban da truot ky thi.');

      readln;

end.

Bình luận (0)
thiện nhân
Xem chi tiết
galaxy
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 12 2019 lúc 22:26

uses crt;

var diem:real;

begin

clrscr;

write('nhap so diem mon tin:'); readln(diem);

if diem<5 then writeln('yeu');

if (diem>=5) and (diem<6.5) then writeln('trung binh');

if (diem>=6.5) and (diem<8) then writeln('kha');

if diem>=8 then writeln('gioi');

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Bùi Anh Tuấn
2 tháng 12 2019 lúc 15:40

program mon_tin;

uses crt;

var t: integer;

begin

clrscr;

writeln(' nhap diem mon tin:'); readln(t);

if t>=8 then writeln(' loai gioi:');

if (6,5<=t) and (t<8) then writeln(' loai kha:');

if (5<=t) and (t<6,5) then writeln(' loai trung binh:');

if t<5 then writeln(' loai kem:');

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Hoàng Đan
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 15:09

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

double tb=(a+b)/2;

if (tb>=5) cout<<"ket qua dat";

else cout<<"ket qua khong dat";

return 0;

}

Bình luận (1)
Thái Trực
Xem chi tiết
Bùi Anh Tuấn
25 tháng 4 2021 lúc 19:52

Bình luận (0)
Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 22:02

uses crt;

var a:array[1..10]of integer;

i,n,tb:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  if a[i]>=8 then write(a[i]:4);

tb:=0;

for i:=1 to 10 do 

  tb:=tb+a[i];

writeln;

writeln('Diem trung binh cua 10 ban la: ',tb:4:2);

readln;

end.
 

Bình luận (0)
Le Hung Dung
Xem chi tiết